object TeknikSiparisOnaylaF: TTeknikSiparisOnaylaF
  Left = 120
  Top = 158
  Width = 1022
  Height = 519
  Caption = 'Teknik Servis Sipari'#351' Onayla'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 456
    Width = 1014
    Height = 36
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      1014
      36)
    object lblRiskliBayi: TLabel
      Left = 826
      Top = 13
      Width = 302
      Height = 16
      Caption = 'Riskli Bayi '#220'cret Yat'#305'r'#305'lmadan '#304#351'lem Yapmay'#305'n'#305'z'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object byenile: TBitBtn
      Left = 2
      Top = 4
      Width = 92
      Height = 31
      Caption = 'Yenile'
      TabOrder = 0
      OnClick = byenileClick
    end
    object BitBtn1: TBitBtn
      Left = 924
      Top = 4
      Width = 87
      Height = 31
      Anchors = [akTop, akRight]
      Caption = 'Kapat'
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object bonayla: TBitBtn
      Left = 190
      Top = 4
      Width = 92
      Height = 31
      Caption = #220'cret Yat'#305'r'#305'ld'#305
      TabOrder = 2
      OnClick = bonaylaClick
    end
    object bsiparisigor: TBitBtn
      Left = 284
      Top = 4
      Width = 92
      Height = 31
      Caption = 'Sipari'#351'i G'#246'r'
      TabOrder = 3
      OnClick = bsiparisigorClick
    end
    object bfaturasikesildi: TBitBtn
      Left = 96
      Top = 4
      Width = 92
      Height = 31
      Caption = 'Faturas'#305' Kesildi'
      TabOrder = 4
      OnClick = bfaturasikesildiClick
    end
    object btKomisyonHesapla: TBitBtn
      Left = 378
      Top = 4
      Width = 98
      Height = 31
      Caption = 'Komisyon Hesapla'
      TabOrder = 5
      OnClick = btKomisyonHesaplaClick
    end
    object btMusteriOnayladi: TBitBtn
      Left = 478
      Top = 4
      Width = 92
      Height = 31
      Caption = 'M'#252#351'teri Onaylad'#305
      TabOrder = 6
      OnClick = btMusteriOnayladiClick
    end
    object btSms: TBitBtn
      Left = 606
      Top = 4
      Width = 92
      Height = 31
      Caption = 'Sms G'#246'nder'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = btSmsClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 389
    Width = 1014
    Height = 67
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 11
      Top = 5
      Width = 83
      Height = 14
      Caption = 'Yat'#305'r'#305'lacak Hesap'
    end
    object Label2: TLabel
      Left = 236
      Top = 5
      Width = 62
      Height = 14
      Caption = 'Yat'#305'rma Tarih'
    end
    object Label3: TLabel
      Left = 654
      Top = 20
      Width = 43
      Height = 14
      Caption = 'Renk Ata'
    end
    object Label8: TLabel
      Left = 339
      Top = 4
      Width = 16
      Height = 14
      Caption = 'Not'
    end
    object Label4: TLabel
      Left = 654
      Top = 68
      Width = 50
      Height = 14
      Alignment = taCenter
      Caption = 'Mail Adres'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 7
      Top = 19
      Width = 226
      Height = 22
      TabStop = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'BankaAdi'#9'20'#9'BankaAdi'#9'F'
        'HesapKodu'#9'35'#9'IBAN'#9'F'
        'DIBAN'#9'35'#9'DOLAR IBAN'#9'F'
        'SubeAdi'#9'20'#9'SubeAdi'#9'F'
        'SubeKodu'#9'10'#9'SubeKodu'#9'F')
      DataField = 'Banka'
      DataSource = TeknikOnayListesiQS
      LookupTable = aqBanka
      LookupField = 'Ref'
      Options = [loColLines, loTitles]
      Style = csDropDownList
      Navigator = False
      ParentFont = False
      TabOrder = 0
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
    end
    object wwDBDateTimePicker1: TwwDBDateTimePicker
      Left = 234
      Top = 19
      Width = 97
      Height = 22
      TabStop = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'YatirmaTarih'
      DataSource = TeknikOnayListesiQS
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
      UnboundDataType = wwDTEdtDate
    end
    object ColorGrid1: TColorGrid
      Left = 705
      Top = 4
      Width = 264
      Height = 46
      GridOrdering = go8x2
      ForegroundIndex = -1
      ForegroundEnabled = False
      TabOrder = 2
      OnChange = ColorGrid1Change
    end
    object wwDBEdit1: TwwDBEdit
      Left = 334
      Top = 19
      Width = 300
      Height = 22
      DataField = 'siparisNot'
      DataSource = TeknikOnayListesiQS
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object btMailGonder: TBitBtn
      Left = 869
      Top = 75
      Width = 100
      Height = 29
      Caption = 'Mail G'#246'nder'
      TabOrder = 4
      Visible = False
      OnClick = btMailGonderClick
    end
    object lcMailList: TwwDBLookupCombo
      Left = 705
      Top = 80
      Width = 158
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'Email'#9'50'#9'Email'#9'F')
      LookupTable = aqMailList
      LookupField = 'Sira'
      Navigator = False
      ParentFont = False
      TabOrder = 5
      Visible = False
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object cbUcretsizDahil: TwwCheckBox
      Left = 12
      Top = 45
      Width = 106
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #220'cretisizler Dahil'
      TabOrder = 6
    end
    object cbOnayDurum: TwwCheckBox
      Left = 122
      Top = 45
      Width = 120
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = 'Onay Bekliyor Dahil'
      TabOrder = 7
    end
    object cbUcretYatirildi: TwwCheckBox
      Left = 243
      Top = 45
      Width = 120
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #220'cret Yat'#305'r'#305'ld'#305' Dahil'
      TabOrder = 8
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 1014
    Height = 389
    ActivePage = TS1
    Align = alClient
    TabOrder = 2
    object TS1: TTabSheet
      Caption = 'Liste'
      object cxgrid1: TcxGrid
        Left = 0
        Top = 0
        Width = 1006
        Height = 360
        Align = alClient
        TabOrder = 0
        LookAndFeel.NativeStyle = True
        object cxgrid1DBTableView1: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          OnCellDblClick = cxgrid1DBTableView1CellDblClick
          OnCustomDrawCell = cxgrid1DBTableView1CustomDrawCell
          DataController.DataSource = TeknikOnayListesiQS
          DataController.Filter.Options = [fcoCaseInsensitive]
          DataController.Summary.DefaultGroupSummaryItems = <
            item
              Format = 'Adet : ###.###'
              Kind = skCount
              FieldName = 'bilisno'
            end>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          FilterRow.InfoText = ' '
          FilterRow.Visible = True
          FilterRow.ApplyChanges = fracImmediately
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnsQuickCustomization = True
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsSelection.UnselectFocusedRecordOnExit = False
          OptionsView.Indicator = True
          Styles.ContentOdd = dm.cxStyle1
          Styles.StyleSheet = dm.tvssDevExpress
          object cxgrid1DBTableView1faturasikesildi: TcxGridDBColumn
            Caption = 'Fat.Kesildi'
            DataBinding.FieldName = 'faturasikesildi'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Width = 55
          end
          object cxgrid1DBTableView1MailGonderDurum: TcxGridDBColumn
            Caption = 'Mail G'#246'nderildi'
            DataBinding.FieldName = 'MailGonderDurum'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Options.Editing = False
            Width = 78
          end
          object cxgrid1DBTableView1MailTarih: TcxGridDBColumn
            Caption = 'Mail Tarih'
            DataBinding.FieldName = 'MailTarih'
            Width = 94
          end
          object cxgrid1DBTableView1SmsTarih: TcxGridDBColumn
            Caption = 'Sms Tarih'
            DataBinding.FieldName = 'SmsTarih'
            Width = 81
          end
          object cxgrid1DBTableView1siparisivar: TcxGridDBColumn
            Caption = 'Sip.'
            DataBinding.FieldName = 'siparisivar'
            Width = 23
          end
          object cxgrid1DBTableView1onaydurum: TcxGridDBColumn
            Caption = 'Onay Durum'
            DataBinding.FieldName = 'onaydurum'
            PropertiesClassName = 'TcxImageComboBoxProperties'
            Properties.Items = <
              item
                Description = 'Onay Bekliyor'
                ImageIndex = 0
                Value = 2
              end
              item
                Description = 'M'#252#351'teri Onaylad'#305
                Value = 3
              end
              item
                Description = 'Kabul Edilmedi'
                Value = 5
              end
              item
                Description = #220'cret Yat'#305'r'#305'ld'#305
                Value = 4
              end>
            Width = 93
          end
          object cxgrid1DBTableView1formno: TcxGridDBColumn
            Caption = 'FormNo'
            DataBinding.FieldName = 'formnox'
            SortIndex = 0
            SortOrder = soAscending
            Width = 59
          end
          object cxgrid1DBTableView1UstCariEvrakNo: TcxGridDBColumn
            Caption = 'M.FormNo'
            DataBinding.FieldName = 'UstCariEvrakNo'
            Width = 101
          end
          object cxgrid1DBTableView1SeriNo: TcxGridDBColumn
            DataBinding.FieldName = 'SeriNo'
          end
          object cxgrid1DBTableView1Tarih: TcxGridDBColumn
            Caption = 'Ekleme Tarih'
            DataBinding.FieldName = 'Tarih'
            Width = 65
          end
          object cxgrid1DBTableView1SevkAdres: TcxGridDBColumn
            Caption = 'Sevk Firma'
            DataBinding.FieldName = 'SevkAdres'
            Width = 132
          end
          object cxgrid1DBTableView1TcKimlikNo: TcxGridDBColumn
            DataBinding.FieldName = 'TcKimlikNo'
            Options.Editing = False
            Width = 84
          end
          object cxgrid1DBTableView1Firmaadi: TcxGridDBColumn
            Caption = 'Firma Ad'#305
            DataBinding.FieldName = 'Firmaadi'
            Width = 149
          end
          object cxgrid1DBTableView1YatirmaTarih: TcxGridDBColumn
            Caption = 'Yat'#305'rma Tarih'
            DataBinding.FieldName = 'YatirmaTarih'
            Width = 70
          end
          object cxgrid1DBTableView1Banka: TcxGridDBColumn
            DataBinding.FieldName = 'Banka'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'Ref'
            Properties.ListColumns = <
              item
                FieldName = 'BankaAdi'
              end
              item
                FieldName = 'DIBAN'
              end
              item
                FieldName = 'SubeAdi'
              end
              item
                FieldName = 'SubeKodu'
              end>
            Properties.ListSource = dsBanka
            Width = 106
          end
          object cxgrid1DBTableView1YatiralacakTutar: TcxGridDBColumn
            Caption = 'Toplam Tutar'
            DataBinding.FieldName = 'YatiralacakTutar'
            PropertiesClassName = 'TcxCurrencyEditProperties'
            Properties.DisplayFormat = ',0.00 TL  ;-,0.00  '
            Width = 72
          end
          object cxgrid1DBTableView1TespitBedel: TcxGridDBColumn
            Caption = 'Tespit Bedeli'
            DataBinding.FieldName = 'TespitBedeli'
            PropertiesClassName = 'TcxCurrencyEditProperties'
            Properties.DecimalPlaces = 4
            Properties.DisplayFormat = ',0.0000 TL  ;-,0.0000  '
            Width = 66
          end
          object cxgrid1DBTableView1KargoBedeli: TcxGridDBColumn
            Caption = 'Kargo Bedeli'
            DataBinding.FieldName = 'KargoBedeli'
            PropertiesClassName = 'TcxCurrencyEditProperties'
            Properties.DecimalPlaces = 4
            Properties.DisplayFormat = ',0.0000 TL  ;-,0.0000  '
            Width = 66
          end
          object cxgrid1DBTableView1toplamhizmet: TcxGridDBColumn
            Caption = 'Hizmet Bedeli'
            DataBinding.FieldName = 'HizmetBedeli'
            PropertiesClassName = 'TcxCurrencyEditProperties'
            Properties.DecimalPlaces = 4
            Properties.DisplayFormat = ',0.0000 TL  ;-,0.0000  '
            Width = 75
          end
          object cxgrid1DBTableView1toplamparca: TcxGridDBColumn
            Caption = 'Sipari'#351' Bedeli'
            DataBinding.FieldName = 'SiparisBedeli'
            PropertiesClassName = 'TcxCurrencyEditProperties'
            Properties.DecimalPlaces = 4
            Properties.DisplayFormat = ',0.00 $  ;-,0.00  '
            Width = 74
          end
          object cxgrid1DBTableView1UpgradeBedeli: TcxGridDBColumn
            Caption = 'Upgrade Bedeli'
            DataBinding.FieldName = 'UpgradeBedeli'
            PropertiesClassName = 'TcxCurrencyEditProperties'
            Properties.DecimalPlaces = 4
            Properties.DisplayFormat = ',0.0000 $  ;-,0.00  '
            Width = 81
          end
          object cxgrid1DBTableView1telefon1: TcxGridDBColumn
            Caption = 'Telefon - 1'
            DataBinding.FieldName = 'telefon1'
            Width = 70
          end
          object cxgrid1DBTableView1telefon2: TcxGridDBColumn
            Caption = 'Telefon - 2'
            DataBinding.FieldName = 'telefon2'
            Width = 74
          end
          object cxgrid1DBTableView1Carikodu: TcxGridDBColumn
            DataBinding.FieldName = 'Carikodu'
            Width = 106
          end
          object cxgrid1DBTableView1Gelisi: TcxGridDBColumn
            Caption = 'Geli'#351'i'
            DataBinding.FieldName = 'Gelisi'
            Width = 35
          end
          object cxgrid1DBTableView1Subeid: TcxGridDBColumn
            Caption = #350'ube'
            DataBinding.FieldName = 'Subeid'
            PropertiesClassName = 'TcxImageComboBoxProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Items = <
              item
                Description = 'Merkez'
                ImageIndex = 0
                Value = 1
              end
              item
                Description = 'Ankara'
                Value = 2
              end
              item
                Description = 'Adana'
                Value = 3
              end>
            Width = 53
          end
          object cxgrid1DBTableView1TeknikPersonel: TcxGridDBColumn
            Caption = 'Teknik Personel'
            DataBinding.FieldName = 'TeknikPersonel'
            Width = 86
          end
          object cxgrid1DBTableView1Bolum: TcxGridDBColumn
            Caption = 'B'#246'l'#252'm'
            DataBinding.FieldName = 'Bolum'
            Width = 70
          end
          object cxgrid1DBTableView1MTipi: TcxGridDBColumn
            Caption = 'M'#252#351'.Tipi'
            DataBinding.FieldName = 'MTipi'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'Ref'
            Properties.ListColumns = <
              item
                FieldName = 'FiyatAdi'
              end>
            Properties.ListSource = dsFiyatTuru
            Width = 69
          end
          object cxgrid1DBTableView1Color: TcxGridDBColumn
            DataBinding.FieldName = 'Color'
            Visible = False
          end
          object cxgrid1DBTableView1fk: TcxGridDBColumn
            DataBinding.FieldName = 'fk'
            Visible = False
          end
          object cxgrid1DBTableView1FormTarih: TcxGridDBColumn
            Caption = 'Geli'#351' Tarihi'
            DataBinding.FieldName = 'FormTarih'
            Width = 92
          end
          object cxgrid1DBTableView1UcGun: TcxGridDBColumn
            Caption = #220#231' G'#252'n'
            DataBinding.FieldName = 'UcGun'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Properties.ValueChecked = '1'
            Properties.ValueUnchecked = '0'
            Width = 51
          end
          object cxgrid1DBTableView1Tutanak: TcxGridDBColumn
            DataBinding.FieldName = 'Tutanak'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Properties.ValueChecked = '1'
            Properties.ValueUnchecked = '0'
            Width = 53
          end
          object cxgrid1DBTableView1SiparisGecilmismi: TcxGridDBColumn
            Caption = 'Sipari'#351' Ge'#231'ilmi'#351' mi?'
            DataBinding.FieldName = 'SiparisGecilmismi'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Properties.ValueChecked = '1'
            Properties.ValueUnchecked = '0'
            Width = 109
          end
          object cxgrid1DBTableView1OdemeSekli: TcxGridDBColumn
            Caption = #214'deme '#350'ekli'
            DataBinding.FieldName = 'OdemeSekli'
            PropertiesClassName = 'TcxImageComboBoxProperties'
            Properties.Items = <
              item
                Description = 'ATM'
                ImageIndex = 0
                Value = 1
              end
              item
                Description = #304'nternet Havale'
                Value = 2
              end
              item
                Description = 'Banka Havale'
                Value = 3
              end
              item
                Description = 'Mail Order (Kart Numaras'#305' Vererek)'
                Value = 4
              end
              item
                Description = 'Nakit (Gelince Elden)'
                Value = 5
              end
              item
                Description = 'Cari Hesab'#305'ndan'
                Value = 6
              end
              item
                Description = 'Bilinmiyor'
                Value = 7
              end>
          end
          object cxgrid1DBTableView1UcretsizTespit: TcxGridDBColumn
            Caption = #220'cretsiz Tespit'
            DataBinding.FieldName = 'UcretsizTespit'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Properties.ValueChecked = '1'
            Properties.ValueUnchecked = '0'
            Width = 80
          end
          object cxgrid1DBTableView1Ucretsizislem: TcxGridDBColumn
            Caption = #220'cretsiz '#304'slem'
            DataBinding.FieldName = 'Ucretsizislem'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Properties.ValueChecked = '1'
            Properties.ValueUnchecked = '0'
            Width = 84
          end
          object cxgrid1DBTableView1UcretVerTarih: TcxGridDBColumn
            Caption = #220'cret Ver. Tarih'
            DataBinding.FieldName = 'UcretVerTarih'
          end
          object cxgrid1DBTableView1OnayVerTarih: TcxGridDBColumn
            Caption = 'Onay Ver. Tarih'
            DataBinding.FieldName = 'OnayVerTarih'
          end
        end
        object cxgrid1Level1: TcxGridLevel
          GridView = cxgrid1DBTableView1
        end
      end
    end
    object TS2: TTabSheet
      Caption = 'Bilinmeyen '#214'demeler'
      ImageIndex = 1
      object cxGrid2: TcxGrid
        Left = 0
        Top = 0
        Width = 918
        Height = 373
        Align = alClient
        TabOrder = 0
        LookAndFeel.NativeStyle = True
        object cxGridDBTableView1: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          DataController.DataSource = dsBilinmeyen
          DataController.Filter.Options = [fcoCaseInsensitive]
          DataController.Summary.DefaultGroupSummaryItems = <
            item
              Format = 'Adet : ###.###'
              Kind = skCount
              FieldName = 'bilisno'
            end>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          FilterRow.InfoText = ' '
          FilterRow.Visible = True
          FilterRow.ApplyChanges = fracImmediately
          OptionsBehavior.IncSearch = True
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsSelection.UnselectFocusedRecordOnExit = False
          OptionsView.Indicator = True
          Styles.ContentOdd = dm.cxStyle1
          Styles.StyleSheet = dm.tvssDevExpress
          object cxGridDBTableView1Tarih: TcxGridDBColumn
            DataBinding.FieldName = 'Tarih'
            Width = 67
          end
          object cxGridDBTableView1islemno: TcxGridDBColumn
            Caption = #304#351'lemNo'
            DataBinding.FieldName = 'islemno'
          end
          object cxGridDBTableView1Turu: TcxGridDBColumn
            Caption = 'T'#252'r'#252
            DataBinding.FieldName = 'Turu'
            Width = 84
          end
          object cxGridDBTableView1Tutar: TcxGridDBColumn
            DataBinding.FieldName = 'Tutar'
            Width = 63
          end
          object cxGridDBTableView1Aciklama: TcxGridDBColumn
            Caption = 'A'#231#305'klama'
            DataBinding.FieldName = 'Aciklama'
            Width = 557
          end
        end
        object cxGridLevel1: TcxGridLevel
          GridView = cxGridDBTableView1
        end
      end
    end
    object TS3: TTabSheet
      Caption = 'Stok Fiyat Listesi'
      ImageIndex = 2
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 918
        Height = 54
        Align = alTop
        TabOrder = 0
        object Label9: TLabel
          Left = 9
          Top = 21
          Width = 44
          Height = 14
          Caption = 'Stokkodu'
          Transparent = True
        end
        object edStokkodu: TwwDBEdit
          Tag = 4
          Left = 67
          Top = 17
          Width = 173
          Height = 22
          AutoSelect = False
          TabOrder = 0
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
          OnExit = btListeleClick
          OnKeyPress = edStokkoduKeyPress
        end
        object btListele: TBitBtn
          Left = 249
          Top = 12
          Width = 91
          Height = 35
          Cursor = crHandPoint
          Action = acListele
          Caption = 'Listele'
          TabOrder = 1
        end
      end
      object cxGrid3: TcxGrid
        Left = 0
        Top = 54
        Width = 918
        Height = 319
        Align = alClient
        PopupMenu = PMStok
        TabOrder = 1
        object cxGridDBTableView2: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = True
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = True
          NavigatorButtons.Edit.Visible = True
          NavigatorButtons.Post.Visible = True
          NavigatorButtons.Cancel.Visible = True
          NavigatorButtons.Refresh.Enabled = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Enabled = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Enabled = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Enabled = False
          NavigatorButtons.Filter.Visible = False
          DataController.DataSource = dsEntry
          DataController.Filter.Options = [fcoCaseInsensitive]
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          FilterRow.InfoText = ' '
          FilterRow.Visible = True
          FilterRow.ApplyChanges = fracImmediately
          OptionsBehavior.FocusCellOnTab = True
          OptionsBehavior.FocusFirstCellOnNewRecord = True
          OptionsBehavior.GoToNextCellOnEnter = True
          OptionsBehavior.IncSearch = True
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsSelection.UnselectFocusedRecordOnExit = False
          OptionsView.Navigator = True
          OptionsView.NoDataToDisplayInfoText = '  '
          OptionsView.Indicator = True
          Styles.Background = dm.cxStyle1
          Styles.Content = dm.cxStyle2
          Styles.ContentEven = cxStyle1
          Styles.ContentOdd = dm.cxStyle4
          Styles.FilterBox = dm.cxStyle5
          Styles.Inactive = dm.cxStyle10
          Styles.IncSearch = dm.cxStyle11
          Styles.Selection = dm.cxStyle14
          Styles.Footer = dm.cxStyle6
          Styles.Group = dm.cxStyle7
          Styles.GroupByBox = dm.cxStyle8
          Styles.Header = dm.cxStyle9
          Styles.Indicator = dm.cxStyle12
          Styles.Preview = dm.cxStyle13
          Styles.StyleSheet = dm.tvssDevExpress
          object cxGrid1DBTableView1Stokkodu: TcxGridDBColumn
            DataBinding.FieldName = 'Stokkodu'
            PropertiesClassName = 'TcxButtonEditProperties'
            Properties.Buttons = <
              item
                Caption = 'yyy'
                Default = True
                Hint = 'xxx'
                Kind = bkEllipsis
                Tag = 1
              end>
            SortIndex = 1
            SortOrder = soAscending
            Width = 118
          end
          object cxGridDBTableView2Cinsi: TcxGridDBColumn
            DataBinding.FieldName = 'Cinsi'
            Width = 134
          end
          object cxGrid1DBTableView1StokkoduLike: TcxGridDBColumn
            Caption = 'Stokkodu (%)'
            DataBinding.FieldName = 'StokkoduLike'
            SortIndex = 0
            SortOrder = soAscending
            Width = 113
          end
          object cxGridDBCarikodu: TcxGridDBColumn
            DataBinding.FieldName = 'Carikodu'
            PropertiesClassName = 'TcxButtonEditProperties'
            Properties.Buttons = <
              item
                Default = True
                Kind = bkEllipsis
              end>
            Properties.ClearKey = 32776
            Width = 103
          end
          object cxGrid1DBTableView1Fiyat1: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat1'
            Width = 50
          end
          object cxGrid1DBTableView1Fiyat2: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat2'
            Width = 50
          end
          object cxGrid1DBTableView1Fiyat3: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat3'
            Width = 50
          end
          object cxGrid1DBTableView1Fiyat4: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat4'
            Width = 50
          end
          object cxGrid1DBTableView1Fiyat5: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat5'
            Width = 50
          end
          object cxGrid1DBTableView1Fiyat6: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat6'
            Width = 50
          end
          object cxGrid1DBTableView1Fiyat7: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat7'
            Width = 50
          end
          object cxGrid1DBTableView1Fiyat8: TcxGridDBColumn
            DataBinding.FieldName = 'Fiyat8'
            Width = 50
          end
          object cxGrid1DBTableView1BasTarih: TcxGridDBColumn
            Caption = 'Ba'#351'.Tarih'
            DataBinding.FieldName = 'BasTarih'
            Width = 58
          end
          object cxGrid1DBTableView1BitTarih: TcxGridDBColumn
            Caption = 'Bit.Tarih'
            DataBinding.FieldName = 'BitTarih'
            Width = 59
          end
          object cxGrid1DBTableView1UstGrup: TcxGridDBColumn
            Caption = #220'stGrup'
            DataBinding.FieldName = 'UstGrupID'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.ImmediatePost = True
            Properties.KeyFieldNames = 'id'
            Properties.ListColumns = <
              item
                FieldName = 'isim'
              end>
            Properties.ListSource = dm.dsUstGrup
            Width = 72
          end
          object cxGrid1DBTableView1Grup: TcxGridDBColumn
            DataBinding.FieldName = 'GrupId'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.ImmediatePost = True
            Properties.KeyFieldNames = 'id'
            Properties.ListColumns = <
              item
                FieldName = 'isim'
              end>
            Properties.ListSource = dm.dsGrup
            Width = 66
          end
          object cxGrid1DBTableView1AltGrup: TcxGridDBColumn
            Caption = 'Marka'
            DataBinding.FieldName = 'MarkaID'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.ImmediatePost = True
            Properties.KeyFieldNames = 'id'
            Properties.ListColumns = <
              item
                FieldName = 'isim'
              end>
            Properties.ListSource = dm.dsMarka
            Width = 74
          end
          object cxGrid1DBTableView1Model: TcxGridDBColumn
            Caption = 'Model'
            DataBinding.FieldName = 'ModelId'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.ImmediatePost = True
            Properties.KeyFieldNames = 'id'
            Properties.ListColumns = <
              item
                FieldName = 'isim'
              end>
            Properties.ListSource = dm.dsModel
            Width = 61
          end
        end
        object cxGridLevel2: TcxGridLevel
          GridView = cxGridDBTableView2
        end
      end
    end
  end
  object TeknikOnayListesiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Filtered = True
    BeforeOpen = TeknikOnayListesiQBeforeOpen
    AfterOpen = TeknikOnayListesiQAfterOpen
    AfterScroll = TeknikOnayListesiQAfterScroll
    Parameters = <
      item
        Name = 'Onaydurum'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 0
      end
      item
        Name = 'Ucretsiz'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select faturasikesildi=isnull(faturasikesildi,0),siparisivar,ona' +
        'ydurum,SeriNo,'
      'FormNo,'
      'FormNox=Cast(FormNo as Varchar(10)),'
      
        'Mail=(Select eMail from perkart Where perkod=ISNULL((SELECT TOP ' +
        '1 TamirEden FROM onarim WHERE formno=Teknik.FormNo),Teknik.atana' +
        'npersonel)),'
      
        'HizmetBedeli=(case when onaydurum=5 then 0 else isnull(Cast(isnu' +
        'll(toplamhizmet,0) as Decimal(18,4)),0) end),'
      
        'UpgradeBedeli=(case when onaydurum=5 then 0 else isnull(Cast(isn' +
        'ull(parcabedeli,0) as Decimal(18,4)),0) end),'
      
        'SiparisBedeli=(case when onaydurum=5 then 0 else isnull(Cast(isn' +
        'ull(toplamparca,0) as Decimal(18,4)),0) end),'
      
        'TespitBedeli=(case when onaydurum=5 and ((UcretsizTespit=1)or(Uc' +
        'retsizislem=1)) then 0 else isnull(Cast(TespitBedel as Decimal(1' +
        '8,4)),0) end),'
      'KargoBedeli=isnull(Cast(KargoBedeli as Decimal(18,4)),0),'
      
        'UcGun=(Case When EklemeTarih is null then 0 When DateDiff(dd,dbo' +
        '.Getsmalldate(EklemeTarih),dbo.Getsmalldate(GetDate()))>5 then 1' +
        ' else 0 end),'
      'SiparisGecilmismi=dbo.SiparisGecilmismi(FormNo),'
      'UcretsizTespit=Cast(isnull(UcretsizTespit,0) as int),'
      'Ucretsizislem=Cast(isnull(Ucretsizislem,0) as int),'
      'fk=Cast(isnull(faturasikesildi,0) as int),'
      'OdemeSekli,'
      'Tutanak=Cast(isnull(Tutanak,0) as int),'
      
        'Carikodu=(Select Carikodu From Cari Where teknik.carikodgir=Cari' +
        '.Carikod),'
      
        'Firmaadi=(Select Firmaadi From Cari Where teknik.carikodgir=Cari' +
        '.Carikod),'
      
        'telefon1=(Select telefon1 From Cari Where teknik.carikodgir=Cari' +
        '.Carikod),'
      
        'telefon2=(Select telefon2 From Cari Where teknik.carikodgir=Cari' +
        '.Carikod),'
      
        'sehir=(Select sehir From Cari Where teknik.carikodgir=Cari.Carik' +
        'od),'
      'TcKimlikNo=FaturaTcKimlikNo,'
      'UstCariEvrakNo,'
      'Color=isnull(Color,65535),Subeid,siparisNot,FormNo,'
      'MTipi= isnull(Teknik.MTipi,1),'
      
        'TeknikPersonel=(Select Adi+'#39' '#39'+Soyadi from perkart where perkod=' +
        'ISNULL((SELECT TOP 1 TamirEden FROM onarim WHERE formno=Teknik.F' +
        'ormNo),Teknik.atananpersonel)),'
      
        'YatiralacakTutar,YatirmaTarih,Banka,Gelisi,Tarih=dbo.Getsmalldat' +
        'e(EklemeTarih),'
      'FormTarih=dbo.Getsmalldate(Tarih),OnayVerTarih,UcretVerTarih,'
      'Bolum=(Select ttipi from tekniktipi Where tkodu=teknik.tipi),'
      'MailGonderDurum=ISNULL(MailGonderDurum,0),MailTarih,'
      
        'SevkAdres=(SELECT ACIKLAMA FROM tbl_SevkiyatAdres WHERE ID=Tekni' +
        'k.SEVKIDGIR),'
      
        'SmsTarih=(SELECT Top 1 GonderiTarih FROM SMS WHERE FormNo=Teknik' +
        '.FormNo AND Tip=2)'
      'from teknik'
      
        'where ((onaydurum=:Onaydurum)  or (onaydurum=3)  or ((onaydurum=' +
        '5) and (TespitBedel>0 or KargoBedeli>0)and (1=:Ucretsiz or isnul' +
        'l(Ucretsizislem,0)=0)))  and Durumu in ('#39'O'#39','#39'T'#39')'
      'Order by Subeid,Gelisi')
    Left = 457
    Top = 22
  end
  object TeknikOnayListesiQS: TDataSource
    DataSet = TeknikOnayListesiQ
    Left = 408
    Top = 24
  end
  object OnaylaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update teknik'
      'set onaydurum='#39'4'#39',OnayTarih=GetDate()'
      'where formno=:formno'
      '')
    Left = 440
    Top = 65
  end
  object FaturaOnaylaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update teknik'
      'set faturasikesildi=1'
      'where formno=:formno'
      '')
    Left = 504
    Top = 64
  end
  object aqYapanPersonel: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 300
    Parameters = <
      item
        Name = 'FormNo'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      #9'select AdiSoyadi=P.Adi +'#39' '#39'+P.Soyadi,T.FormNo'
      #9',Mail1=P.EMail'
      
        #9',Mail2=(Select top 1 EMail from Perkart Pr Where (M1.Id=Pr.Dire' +
        'ktorluk) and (M2.Id=Pr.Departman)  and (M3.Id=Pr.Bolum) and pr.S' +
        'eviye<P.Seviye and Aktif='#39'A'#39' Order by pr.Seviye)'
      
        #9',Mail3=(Select top 1 EMail from Perkart Pr Where (M1.Id=Pr.Dire' +
        'ktorluk) and (M2.Id=Pr.Departman) and pr.Seviye<P.Seviye and Akt' +
        'if='#39'A'#39'  Order by pr.Seviye)'
      #9'from Teknik T'
      '                Join Perkart P on (T.TamirEden=P.Perkod) '
      
        #9'left Join CS_MUHASEBE_ANA_MASRAF_MERKEZI M1 on (M1.Id=P.Direkto' +
        'rluk AND M1.AktIf=1)'
      
        #9'left Join CS_MUHASEBE_ALT_MASRAF_MERKEZI M2 on (M2.Id=P.Departm' +
        'an AND M2.AktIf=1)'#9
      
        #9'left Join CS_PERSONEL_MASRAF_MERKEZI M3 on (M3.Id=P.Bolum AND M' +
        '3.AktIf=1)'
      '    Where T.FormNo=:FormNo')
    Left = 601
    Top = 73
  end
  object PM1: TPopupMenu
    Left = 264
    Top = 185
    object DefaultGrid: TMenuItem
      Caption = 'Default Grid'
    end
  end
  object aqBanka: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select Bh.*,b.BankaAdi from '
      'tblBankaHesap bh '
      'join tblbanka b on (bh.BankaRef=b.Ref)'
      'Where bh.aktif=1'
      'order By b.BankaAdi')
    Left = 400
    Top = 96
  end
  object dsBanka: TDataSource
    DataSet = aqBanka
    Left = 399
    Top = 149
  end
  object aqBilinmeyen: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT  Tarih=LGMAIN.DATE_,'#13' islemno=LGMAIN.TRANNO,'#13' Turu=(CASE ' +
        'LGMAIN.TRCODE WHEN 14 THEN '#39'A'#231#305'l'#305#351' '#304#351'lemleri'#39' WHEN 20 THEN '#39'Gele' +
        'n Havale'#39' WHEN 21 THEN '#39'Giden Havale'#39' ELSE '#39#39' END), '#13' Tutar=LGMA' +
        'IN.TRNET,  '#13' Aciklama=LGMAIN.LINEEXP'#13'  FROM  LG_021_01_CLFLINE L' +
        'GMAIN WITH(NOLOCK, INDEX = I021_01_CLFLINE_I4)   WHERE  (LGMAIN.' +
        'CLIENTREF = 1843) AND'#13' (((LGMAIN.MODULENR = 7)) '#13' OR ((LGMAIN.MO' +
        'DULENR IN (6,61,62))) OR (((LGMAIN.MODULENR=4) AND (LGMAIN.TRCOD' +
        'E IN (31,34,36,43,56)))) OR (((LGMAIN.MODULENR=4) AND (LGMAIN.TR' +
        'CODE IN (32,33,37,38,39,44)))) '#13' OR ((LGMAIN.MODULENR IN (5,10))' +
        ') OR (((LGMAIN.MODULENR= 3) AND (LGMAIN.TRCODE = 81))) OR (((LGM' +
        'AIN.MODULENR= 3) AND (LGMAIN.TRCODE = 82))) OR (((LGMAIN.MODULEN' +
        'R= 4) AND '#13' (LGMAIN.TRCODE IN (41,42))))) ORDER BY  LGMAIN.DATE_' +
        ', LGMAIN.MODULENR, LGMAIN.TRCODE, LGMAIN.LOGICALREF')
    Left = 153
    Top = 76
  end
  object dsBilinmeyen: TDataSource
    DataSet = aqBilinmeyen
    Left = 151
    Top = 129
  end
  object aqFiyatTuru: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'Select * from TblFiyatAdi Order by Ref')
    Left = 473
    Top = 137
  end
  object dsFiyatTuru: TDataSource
    DataSet = aqFiyatTuru
    Left = 479
    Top = 201
  end
  object PMStok: TPopupMenu
    Left = 592
    Top = 200
    object AmbarToplamlar1: TMenuItem
      Caption = 'Ambar Toplamlar'#305
      ShortCut = 123
      OnClick = AmbarToplamlar1Click
    end
  end
  object aqEntry: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      'Select * from TblYedekParcaFiyatListesi Order by Ref')
    Left = 456
    Top = 255
  end
  object dsEntry: TDataSource
    DataSet = aqEntry
    Left = 458
    Top = 316
  end
  object cxStyleRepository1: TcxStyleRepository
    Left = 75
    Top = 168
    PixelsPerInch = 96
    object cxStyle1: TcxStyle
      AssignedValues = [svColor]
      Color = 16310998
    end
  end
  object ActionList1: TActionList
    Left = 230
    Top = 244
    object acListele: TAction
      Caption = 'Listele'
      ShortCut = 116
      OnExecute = btListeleClick
    end
  end
  object aqMailList: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'FormNo1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'FormNo2'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Sira=1,Email=ISNULL(SendMailAdress,'#39#39') '
      'FROM Teknik T'
      
        'WHERE T.FormNo=:FormNo AND (PATINDEX('#39'%@%'#39',ISNULL(T.SendMailAdre' +
        'ss,'#39#39'))>0)'
      'UNION'
      'SELECT Sira=1,Email=ISNULL(S.EPOSTA,'#39#39') '
      'FROM Teknik T'
      'JOIN tbl_SevkiyatAdres S ON (T.SEVKIDGIR=S.ID)'
      
        'WHERE T.FormNo=:FormNo1 AND (PATINDEX('#39'%@%'#39',ISNULL(S.EPOSTA,'#39#39'))' +
        '>0)'
      'UNION'
      'SELECT Sira=2,Email=ISNULL(C.email,'#39#39')'
      'FROM Teknik T'
      'JOIN cari C ON (C.carikod=T.carikodGir)'
      
        'WHERE T.FormNo=:FormNo2 AND (PATINDEX('#39'%@%'#39',ISNULL(C.email,'#39#39'))>' +
        '0)'
      'ORDER BY Sira')
    Left = 582
    Top = 404
  end
end
